SHARED outside of a subprogram